90 REM TINY GRAPHICS 1
100 CM=55296:WD=40:VIC=53248
105 W=W+1:BL$="                                       [157][157][148] "
110 POKE VIC+32,0:POKE VIC+33,0:PRINT "[129]";:FOR N=1 TO 24: PRINT BL$
120 NEXT:PRINT BL$ ""
150 FOR Q=12 TO 1 STEP -1:GOSUB 200:NEXT
160 FOR Q=1 TO 12:GOSUB 200:NEXT:FOR Z=1 TO 100:NEXT Z:GOTO 150
200 UL=CM+Q+Q*WD:UR=CM+Q*WD+(39-Q):LL=CM+(25-Q)*WD+Q:LR=CM+(39-Q)+WD*(25-Q)
205 W=W+1:IF W>15 THEN W=0
210 FOR N=UL+1 TO UR:POKE N,W:NEXT
220 FOR N=UR TO LR STEP WD:POKE N,W:NEXT
230 FOR N=LR-1 TO LL STEP -1:POKE N,W:NEXT
240 FOR N=LL TO UL STEP -WD:POKE N,W:NEXT
250 GET Z$: IF Z$<>"Q" THEN RETURN
260 PRINT "[154]":END